Sheet: (0, 0) (0, 1) Microsoft Project PERT Analyzer (1, 1) computes PERT analysis on projects using Microsoft Project (2, 1) Copyright 1992, Microsoft Corporation (4, 0) (4, 1) Control Macros (4, 4) Dialog Boxes (5, 0) (5, 1) (5, 2) (5, 3) (5, 4) (5, 9) (6, 0) Names (6, 1) Formulas (6, 2) Comments (6, 4) Dialog (6, 5) x (6, 6) y (6, 7) width (6, 8) height (6, 9) text (6, 10) init/result (7, 0) (7, 1) (7, 2) (7, 8) (8, 0) (8, 1) MAIN() (8, 4) PERT Calculations (9, 0) GetUserInput (9, 1) get user input for Macro (9, 2) Create new sheet; format and lock screen (9, 3) (9, 4) queries for static/dynamic link and BWE calcs (9, 5) (9, 6) (9, 7) (9, 8) (9, 9) (9, 10) (10, 0) (10, 4) (10, 5) 30 (10, 6) -180 (10, 7) 448 (10, 8) 111 (10, 9) PERT Calculations (10, 10) (11, 0) (11, 4) 14 (11, 5) 20 (11, 6) 10 (11, 7) 262 (11, 8) 49 (11, 9) Calculate PERT durations (11, 10) (12, 0) (12, 4) 11 (12, 5) (12, 6) (12, 7) (12, 8) (12, 9) (12, 10) 1 (13, 0) (13, 3) (13, 4) 12 (13, 5) (13, 6) (13, 7) (13, 8) (13, 9) Once (this time only) (13, 10) (14, 0) (14, 3) (14, 4) 12 (14, 5) (14, 6) (14, 7) (14, 8) (14, 9) Dynamically (always update) (14, 10) (15, 0) (15, 4) 13 (15, 5) 21 (15, 6) 67 (15, 7) (15, 8) (15, 9) Calculate Best, Worst, Expected (15, 10) FALSE (16, 0) (16, 4) 5 (16, 5) 46 (16, 6) 83 (16, 7) (16, 8) (16, 9) schedules in Start/Finish fields (16, 10) (17, 0) GetUserCalcs (17, 2) Call dialog for user requested calculations; error check (17, 4) 1 (17, 5) 343 (17, 6) 8 (17, 7) 95 (17, 8) (17, 9) OK (17, 10) (18, 0) (18, 2) ...note that Dialog position assumes Excel is minimized (18, 4) 2 (18, 5) 343 (18, 6) 32 (18, 7) 95 (18, 8) (18, 9) Cancel (18, 10) (19, 0) (19, 4) 3 (19, 5) 343 (19, 6) 61 (19, 7) (19, 8) (19, 9) Options... (19, 10) (20, 0) GetUserOpts (20, 4) (20, 5) (20, 6) (20, 7) (20, 8) (20, 9) (20, 10) (21, 0) (21, 4) (21, 5) (21, 6) (21, 7) (21, 8) (21, 9) (21, 10) (22, 0) (22, 2) (22, 4) (22, 5) (22, 6) (22, 7) (22, 8) (22, 9) (22, 10) (23, 0) (23, 2) (23, 4) Calculation Options (23, 5) (23, 6) (23, 7) (23, 8) (23, 9) (23, 10) (24, 0) (24, 2) (24, 4) user sets duration weights and decimal rounding (24, 5) (24, 6) (24, 7) (24, 8) (24, 9) (24, 10) (25, 0) (25, 2) ...in all cases return user to CalcsDlg (25, 4) (25, 5) 30 (25, 6) -180 (25, 7) 554 (25, 8) 125 (25, 9) PERT Calculation Options (25, 10) (26, 0) (26, 4) 14 (26, 5) 23 (26, 6) 12 (26, 7) 375 (26, 8) 92 (26, 9) Calculation Options (26, 10) (27, 0) GetAllTasks (27, 1) call Project to determine all (Non-Summary) tasks in current project (27, 2) Get tasks from predefined views (27, 4) 5 (27, 5) 33 (27, 6) 32 (27, 7) (27, 8) (27, 9) Estimate Weights (must total 6): (27, 10) (28, 0) (28, 2) (28, 4) 5 (28, 5) 49 (28, 6) 52 (28, 7) (28, 8) (28, 9) Best (28, 10) (29, 0) SysChannel (29, 4) 8 (29, 5) 90 (29, 6) 50 (29, 7) 32 (29, 8) (29, 9) (29, 10) 1 (30, 4) 5 (30, 5) 131 (30, 6) 52 (30, 7) (30, 8) (30, 9) Worst (30, 10) (31, 0) ProjChannel (31, 4) 8 (31, 5) 179 (31, 6) 50 (31, 7) 32 (31, 8) (31, 9) (31, 10) 1 (32, 4) 5 (32, 5) 224 (32, 6) 52 (32, 7) (32, 8) (32, 9) Expected (32, 10) (33, 2) (33, 4) 8 (33, 5) 304 (33, 6) 50 (33, 7) 32 (33, 8) (33, 9) (33, 10) 4 (34, 2) ...note that all tasks selected in case of later PasteLink (34, 4) 5 (34, 5) 35 (34, 6) 80 (34, 7) (34, 8) (34, 9) Round durations to: places (34, 10) (35, 4) 7 (35, 5) 208 (35, 6) 78 (35, 7) 37 (35, 8) (35, 9) (35, 10) 2 (36, 2) ...all tasks are also put into 'All Tasks' array (36, 4) 1 (36, 5) 449 (36, 6) 9 (36, 7) 88 (36, 8) (36, 9) OK (36, 10) (37, 0) NumOfTasks (37, 4) 2 (37, 5) 449 (37, 6) 33 (37, 7) 88 (37, 8) (37, 9) Cancel (37, 10) (38, 0) TaskstoExcel (38, 1) enters or paste-links the tasks into Excel (38, 2) PasteLink for dynamic calculation or Entry for 1-time calc (39, 0) (40, 0) (41, 0) (42, 0) (42, 2) ...memo: tasks already selected in as noted in C35 above (43, 0) (44, 0) (45, 0) (46, 0) (47, 0) (47, 2) (48, 0) SetUpCalc (48, 1) sets up the PERT calculations on active sheet (48, 2) Set up the PERT analysis calc (with user defined weights and rounding) (50, 0) SaveIntVals (50, 1) saves the BWE dates in Project, if user requested (50, 2) Calculate the Best,Worst,Expected schedules (51, 0) (52, 0) (53, 0) (54, 0) (55, 0) (56, 0) (57, 0) (58, 0) (59, 0) (63, 0) RetPERTVals (63, 1) returns the PERT duration to Project (63, 2) Determine Paste or Paste Link into Microsoft Project (67, 2) (68, 0) (68, 2) (69, 0) (75, 0) ResetState (75, 1) returns to working enviroment (75, 2) Reset application settings (84, 1) (86, 1)